10 INPUT"NUMBER IN DECIMAL";DEC:IFDEC>65535THENPRINT"TOO BIG":GOTO10
20 F=4096:FORA=1TO4
30 D%=DEC/F:DEC=DEC-D%*F
40 D%=D%+48:IFD%>57THEND%=D%+7
50 HX$=HX$+CHR$(D%):F=F/16
60 NEXT
70 PRINT"$"HX$